home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspdep.arc / INT1731.CLP < prev    next >
Encoding:
Text File  |  1991-12-04  |  1.4 KB  |  41 lines
  1.  INT1731:    PGM       (&OPTION &FILE &LIB &MBR &RCDFMT &SHARING)
  2.  
  3.              /*         Program - INT1731  */
  4.              /*         Exit program for DSPDEP  */
  5.  
  6.              DCL        &OPTION  *CHAR 01 /* Option selected */
  7.              DCL        &FILE    *CHAR 10 /* File name */
  8.              DCL        &LIB     *CHAR 10 /* Library name */
  9.              DCL        &MBR     *CHAR 10 /* Member name */
  10.              DCL        &RCDFMT  *CHAR 10 /* Record format */
  11.              DCL        &SHARING *CHAR 10 /* Type of Dependency */
  12.              MONMSG     MSGID(CPF0000)
  13.  
  14.              IF         (&OPTION *EQ '1') DO
  15.                DSPRCDFMT  FILE(&FILE.&LIB)
  16.                GOTO     RETURN
  17.              ENDDO
  18.  
  19.              IF         (&OPTION *EQ '4') DO
  20.                DSPOBJAUT  OBJ(&FILE.&LIB) OBJTYPE(*FILE)
  21.                GOTO     RETURN
  22.              ENDDO
  23.  
  24.              IF         (&OPTION *EQ 'A') DO
  25.                DSPFD      FILE(&FILE.&LIB) TYPE(*ACCPTH)
  26.                GOTO     RETURN
  27.              ENDDO
  28.  
  29.              IF         (&OPTION *EQ 'K') DO
  30.                DSPFD      FILE(&FILE.&LIB) TYPE(*ACCPTH *SELECT)
  31.                GOTO     RETURN
  32.              ENDDO
  33.  
  34.              IF         (&OPTION *EQ 'S') DO
  35.                DSPFD      FILE(&FILE.&LIB) TYPE(*SELECT)
  36.                GOTO     RETURN
  37.              ENDDO
  38.  
  39.  RETURN:     RETURN
  40.  ENDPGM:     ENDPGM
  41.